COM component

SendStatusCollection

Collection containing the send status for each recipient.

Methods:

Item(Index) As SendStatus Returns an individual SendStatus object from the collection

Properties:

OverallResult Indicates the overall success/failure. See ResultCodes
Count Number of SendStatus objects in the collection

ASP Example:

<%
Set IntelliSMS = Server.CreateObject("IntelliSoftware.IntelliSMS")

IntelliSMS.AccessKey = "Yva$ER%Uhs+UU[MzwEYe"
IntelliSMS.SecretKey = "F{kQ^s`wVpm!EU~Bx8yB^A$N$[l{pxJA"

Set SendStatusColl = IntelliSMS.SendMessageToMultipleRecipients _
    ("44771012345,44771023456", "Hello", "SENDER_ID")

If SendStatusColl.OverallResult <> 1 Then
    Summary = "Failed, Result=" & SendStatusColl.OverallResult
Else
    For Each Status In SendStatusColl
         Summary = Summary & "To=" & Status.To & _
             ", MessageId=" & Status.MessageId & _
             ", Result=" & Status.ResultCode & "<BR>"
    Next
End If

Response.Write Summary
%>
			

VB Example:

Dim IntelliSMS As New INTELLISMSLib.IntelliSMS

IntelliSMS.Username = "MyUsername"
IntelliSMS.Password = "MyPassword"

Dim SendStatusColl As INTELLISMSLib.SendStatusCollection

Set SendStatusColl = IntelliSMS.SendMessageToMultipleRecipients _
    ("44771012345,44771023456", "Hello", "SENDER_ID")

Dim Summary As String

If SendStatusColl.OverallResult <> ResultCodes.rcOK Then
    Summary = "Failed, Result=" & SendStatusColl.OverallResult
Else
    Dim Status As INTELLISMSLib.SendStatus
    For Each Status In SendStatusColl
        Summary = Summary & "To=" & Status.To & _
            ", MessageId=" & Status.MessageId & _
            ", Status=" & Status.ResultCode & vbCrLf
    Next
End If

MsgBox Summary
			

<< Back to COM Component